home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / rexx / PGPwithYAM.lha / SignMail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-06  |  785b  |  36 lines
  1. /* Sign a mail with Phil's PGP for YAM
  2.  * $VER: SignMail.rexx 1.3 (06-Jul-97) by Michael Praschl
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. pgpcommand = '-sat'
  8. pgppath    = 'PGP:bin/pgp'
  9.  
  10. CALL CLOSE 'STDOUT'
  11. CALL CLOSE 'STDIN'
  12. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  13. CALL PRAGMA '*','STDIN'
  14. CALL OPEN 'STDOUT','*'
  15.  
  16. IF ~SHOW('Ports','YAM') THEN DO
  17.   ADDRESS 'COMMAND'
  18.   'Run YAM:YAM NOCHECK HIDE'
  19.   'SYS:RexxC/WaitForPort YAM'
  20. END
  21. IF SHOW('Ports','YAM') THEN DO
  22.   ADDRESS 'YAM'
  23.   GETMAILINFO FILE
  24.   mailfile = RESULT
  25.  
  26.   ADDRESS 'COMMAND'
  27.   'YAM:Rexx/splitmail' mailfile
  28.   if exists('ram:body') then pgppath pgpcommand 'ram:body'
  29.   if exists('ram:body.asc') then
  30.     if exists('ram:head') then
  31.       'join ram:head ram:body.asc to' mailfile
  32.   'delete >NIL: ram:head ram:body ram:body.asc'
  33.  
  34. END
  35.  
  36.